home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Informant Complete 1995 - 2000
/
Delphi Informant Complete 1995 to 2000.iso
/
Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar
/
1995
/
JUL
/
MC9507
/
calc_f.dfm
/
calc_f.txt
Wrap
Text File
|
1995-06-01
|
2KB
|
90 lines
object CalcForm: TCalcForm
Left = 188
Top = 109
Width = 591
Height = 478
ActiveControl = Panel1
Caption = 'Calculated Field'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 14
object Panel1: TPanel
Left = 0
Top = 0
Width = 583
Height = 42
Align = alTop
TabOrder = 0
object Panel2: TPanel
Left = 389
Top = 1
Width = 193
Height = 40
Align = alRight
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 0
object DBNavigator: TDBNavigator
Left = 18
Top = 2
Width = 169
Height = 33
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
TabOrder = 0
end
end
end
object DBGrid1: TDBGrid
Left = 0
Top = 42
Width = 583
Height = 409
Align = alClient
DataSource = DataSource1
TabOrder = 1
TitleFont.Color = clBlack
TitleFont.Height = -11
TitleFont.Name = 'Arial'
TitleFont.Style = []
end
object DataSource1: TDataSource
DataSet = Table1
Left = 61
Top = 5
end
object Table1: TTable
Active = True
OnCalcFields = Table1CalcFields
DatabaseName = 'DBDEMOS'
TableName = 'COUNTRY.DB'
Left = 24
Top = 8
object Table1Name: TStringField
FieldName = 'Name'
Size = 24
end
object Table1Capital: TStringField
FieldName = 'Capital'
Size = 24
end
object Table1Area: TFloatField
FieldName = 'Area'
DisplayFormat = '#,#'
end
object Table1Population: TFloatField
FieldName = 'Population'
DisplayFormat = '#,#'
end
object Table1PopulationDensity: TFloatField
Calculated = True
FieldName = 'Population Density'
end
end
end